home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / crwtim / time_1.txt < prev    next >
Text File  |  1994-04-22  |  821b  |  38 lines
  1. // Time Format for CRYSTAL Reports (12:00 AM/PM format)
  2. //
  3. // Convert MS ACCESS Time to Whole Number
  4. NumberVar TotWholeNbr:={Time.Time}*100000000;
  5.  
  6. // Calculate Hours
  7. NumberVar Hours:=Truncate(TotWholeNbr/4166666.64);
  8.  
  9. // Calculate Minutes
  10. NumberVar Mins:=Truncate((TotWholeNbr-(Hours*4166666.64))/69444.444);
  11.  
  12. // Set AM/PM String
  13. If Hours>=12 Then
  14.   StringVar AMPM:="PM";
  15. If Hours<12 Then
  16.   StringVar AMPM:="AM";
  17. If Hours=0 then
  18.   Hours:=12;
  19.  
  20. // If past 13:00, adjust hours
  21. If Hours>12 Then
  22.   Hours:=Hours-12;
  23.  
  24. // Set Hour String
  25. If Hours<10 Then
  26.   StringVar HH:="0"+ToText(Hours)
  27. Else
  28.   StringVar HH:=ToText(Hours);
  29.  
  30. // Set Minute String
  31. If Mins<10 Then
  32.   StringVar MM:="0"+ToText(Mins)
  33. Else
  34.   StringVar MM:=ToText(Mins);
  35.  
  36. // Output Time
  37. HH[1 to 2]+":"+MM[1 to 2]+" "+AMPM[1 to 2];
  38.